home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / rexx / settfaxvars.avm < prev    next >
Text File  |  1995-03-09  |  1KB  |  58 lines
  1. /*--------------------------------------------------------------*/
  2. /*reading fax settings and writing them into some vars*/
  3.  
  4. faxprogram = upper(getclip('AVMFaxProgram'))
  5. if faxprogram ~= 'TRAPFAX' then exit
  6.  
  7.   call open('cservcfg', 'avm:servers.cfg', 'r')
  8.  
  9.  do forever
  10.     cfaxidl = readln('cservcfg')
  11.     equpos = index(cfaxidl,'=')
  12.     if equpos > 0 then cfaxidh = left(cfaxidl, (equpos - 1))
  13.     clength = length(cfaxidl)
  14.     clength = clength - equpos
  15.     cfaxid = right(cfaxidl, clength)
  16.  
  17.    if eof('cservcfg') then break
  18.  
  19.     if cfaxidh = 'faxid' then
  20.      do
  21.       address command 'sys:rexxc/rxset TFaxID '|| cfaxid
  22.      end
  23.     else
  24.     if cfaxidh = 'faxCapability' then
  25.      do
  26.       address command 'sys:rexxc/rxset TFaxCap '|| cfaxid
  27.      end
  28.     else
  29.     if cfaxidh = 'faxsetup1' then
  30.      do
  31.       address command 'sys:rexxc/rxset TFaxStp1 '|| cfaxid
  32.      end
  33.     else
  34.     if cfaxidh = 'faxsetup2' then
  35.      do
  36.       address command 'sys:rexxc/rxset TFaxStp2 '|| cfaxid
  37.      end
  38.     else
  39.     if cfaxidh = 'faxsetup3' then
  40.      do
  41.       address command 'sys:rexxc/rxset TFaxStp3 '|| cfaxid
  42.      end
  43.     else
  44.     if cfaxidh = 'faxsetup4' then
  45.      do
  46.       address command 'sys:rexxc/rxset TFaxStp4 '|| cfaxid
  47.      end
  48.     else
  49.     if cfaxidh = 'faxsetup5' then
  50.      do
  51.       address command 'sys:rexxc/rxset TFaxStp5 '|| cfaxid
  52.      end
  53.  end
  54.  
  55.   call close('cservcfg')
  56.  
  57. /*--------------------------------------------------------------*/
  58.